2 REM PETER DIEHM PRESENTS
3 REM DAS LEBEN DES BRAIN
4 PRINTCHR$(14)
5 POKE 53280,0:POKE 53281,0:PRINT"[147]":POKE 646,1
7 POKE 650,255:POKE 657,128
8 GOTO 20
10 PRINTSPC(30)"[154]-[212]ASTE-[146]"
12 GET D$:IF D$="" THEN 12
14 RETURN
20 REM BRAIN VORGESCHICHTE
21 PRINT"    [196]AS [204]EBEN DES [158] [194]RAIN [146] [208]ART [201]-[214]
22 [153][166]1)"  (W) BY (null)ETER STR$IEHM ASCEBRUAR 1992
23 PRINTSPC(1)"       [154] [208]UBLIC [146] [196]OMAIN [211]OFT
24 [129]I[178]1[164]20:[153]"--";:[130]
25 [153][166]1)"                WAIT"
26 [153][166]1)" (null)ORGESCHICHTE: WAIT"
27 [153][166]1)"                WAIT"
30 [153][166]1)" SPC(SPC(SPC(SPC(SPC(SPC(   SPC(SPC(SPC(SPC(
32 PRINTSPC(1)" [166]        [166]
34 [153][166]1)" SPC(        SPC(
35 PRINTSPC(1)" [166][166][166][166][166][166]   [166][166][166][166] WAR EINMAL...
36 [153][166]1)" SPC(           SPC(
37 PRINTSPC(1)" [166]           [166]
38 [153][166]1)" SPC(SPC(SPC(SPC(SPC(SPC(   SPC(SPC(SPC(SPC(
39 PRINTSPC(1)"[196]AS ERSTE [193]DVENTURE MIT BIBLISCHEM
40 [153][166]1)"LEFT$INTERGRUND, WENN ER AUCH NUR IN DER
41 PRINTSPC(1)"[214]ORGESCHICHTE VORHANDEN IST ! ":GOSUB10
42 PRINT"[147]"
43 PRINTSPC(1)"[196]AS [207]LYMPISCHE [198]EUER AUF DEM [207]LYMP
45 [153][166]1)"IST ERLOSCHEN, DA MAN DIE CHR$ASRECHNUNG
46 PRINTSPC(1)"NICHT [158] BEZAHLT [146] HATTE !
47 [153][166]1)"VALS HAETTE DER (null)NTERGANG DES (null)LYMPISCHEN
48 PRINTSPC(1)"[199]EISTES SEIN KOENNEN ([211]CHLUCHZZZZ).
50 [153][166]1)"STR$OCH DER (null)ETTER NAHTE! (null)WAR WURDE ER
52 PRINTSPC(1)"UNTER [154] [218]WANG [146] AUSGESUCHT, DA ES
53 [153][166]1)"KEINEN ASCREIWILLIGEN GAB, DIESE GEWAGTE
54 PRINTSPC(1)"[193]KTION DURCHZUFUEHREN.
56 [153][166]1)"STR$A DU, PEEKRAIN, DIESER ATNUSGEWAEHLTE WUR=
57 PRINTSPC(1)"DEST, STECKTE MAN DICH IN EINE [218]EIT=
58 [153][166]1)"MASCHINE UND WOLLTE DICH INS GUTE ALTE
60 PRINTSPC(1)"[199]RIECHENLAND ZURUECKVERSETZEN."
62 PRINTSPC(1)"[196]OCH DIE [205]ASCHINE MACHTE EINEN  [198]EHLER [146]
63 [153][166]1)"UND SO LANDETEST DU IN MID$ERUSALEM UM...
64 PRINTSPC(1)"SO UNGEFAEHR 3 VOR [195]HRISTUS !"
65 GOSUB10
67 PRINT"[147]"
68 PRINTSPC(1)"[202]ERUSALEM WAR ZU DIESER [218]EIT VON DEN
69 [153][166]1)"(null)OEMERN BESETZT. (null)IT DEN (null)OEMERN MEINE
70 PRINTSPC(1)"ICH NICHT DIE [203]ICKER VON [193][211] ODER [204]AZIO
72 [153][166]1)"(null)OM, NEIN SONDERN DIE (null)OEMER AUS DEN
73 PRINTSPC(1)"[193]STERIX [194]UECHERN,WELCHE IM [212]EUTOBURGER
74 [153][166]1)" (null)ALD WAIT VON UNSEREN (null)ORFAHREN BE=
75 PRINTSPC(1)"SIEGT WURDEN.
76 [153][166]1)"STR$ER (null)TATTHALTER HIESS (null)ILATUS. STR$IESER
78 PRINTSPC(1)"WAR ZU DIESER [218]EIT RECHT NERVOES, DENN
79 [153][166]1)"NICHT NUR LEFT$ERODES SONDERN AUCH ER
80 PRINTSPC(1)"HATTE VON EINEM ANGEBLICHEN NEUEN [203]ING
81 [153][166]1)"VON MID$ERUSALEM GEHOERT. STR$IESER WAR ZWAR
82 PRINTSPC(1)"NOCHT NICHT GEBOREN, ABER [199]ERUECHTE
83 [153][166]1)"GINGEN SCHON EINHER, WIE DAS IMMER SO
84 PRINTSPC(1)"IST. [196]AS KENNEN WIR JA AUS DER [204]INDEN=
85 [153][166]1)"STRASSE !":[141]10:[153]"LOAD"
86 [153][166]1)"(null)O KAM ES, ALS DU DURCH DIE CHR$ASSEN GE=
87 PRINTSPC(1)"LAUFEN BIST, DAS DU VON DEN [211]OLDATEN
88 [153][166]1)"DES (null)ILATUS GEFANGENGENOMMEN WURDEST,
89 PRINTSPC(1)"DA DU FUER DEN NEUEN [158] [203]OENIG [146] VON
90 [153][166]1)"MID$ERUSALEM GEHALTEN WURDEST.
91 PRINTSPC(1)"[196]AS KAM, WEIL DU EINE [204]OS [193]NGELES [203]INGS
92 [153][166]1)"MID$ACKE UND EIN  RIGHT$'M THE PEEKOSS
93 PRINTSPC(1)"[212]-[211]HIRT AM [153] [204]EIB [146] GETRAGEN HAST.
94 [153][166]1)"STR$U WURDEST IN DEN PRINT# (null)ERKER WAIT GE=
96 PRINTSPC(1)"STECKT. [206]UN MUSST DU SEHEN, WIE ES
98 [153][166]1)"WEITERGEHT !
99 GOSUB10
100 PRINT"[147]"
102 FORI=1TO20:PRINT"--";:NEXT
103 PRINTSPC(1)"       [196]AS [158] [204]EBEN [146] DES [194]RAIN !
104 [129]I[178]1[164]20:[153]"--";:[130]
105 [153][166]1)"ATNRT: PRINT (null)EXT WAIT ATNDVENTURE.
106 PRINTSPC(1)"[208]ROGRAMMIERER: [208]ETER [196]IEHM !
107 [153][166]1)"(null)ANN: (W) IM ASCEBRUAR 1992
110 PRINTSPC(1)"[215]IE: IN [154] [194]ASIC [146] !
111 [153][166]1)"(null)OZU: FUER ALLE (null)UBLIC STR$OMAIN ASCREAKS !
112 PRINTSPC(1)"[215]ESHALB: [194]EGEISTERT VOM [198]ILM !
113 [153][166]1)"RIGHT$N ATNNLEHNUNG AN DEN GLEICHNAMIGEN
114 PRINTSPC(1)"[198]ILM VON [205]ONTY [208]YTHONS !"
115 PRINTSPC(1)"[193]LLERDINGS MIT [194]RAIN, NICHT MIT [194]RIAN.
116 [153][166]1)"  ATN (null)STR$(null)STR$ DEF (null)OFTWARE WAIT (null)RODUKTION 1992
118 GOSUB10
120 PRINT"[147]"
122 PRINTSPC(1)"[201]CH MOECHTE HIERMIT DIE [194]EWERBUNG
123 [153][166]1)"(null)IMBACH'S ZUR ATNUSSRICHTUNG DER LEFT$ERBST
124 PRINTSPC(1)"[207]LYMPIADE 1984 UNTERSTUETZEN:
125 [153][166]1)"VALINIGE SYS (null)ORZUEGE: WAIT
126 PRINTSPC(1)" - [197]IN [200]ALLEN [194]AD !
128 [153][166]1)" - (null)EICHLICH (null)IESEN.
130 PRINTSPC(1)" - 4 [198]ISCHTEICHE.
132 [153][166]1)" - EINEN ROTEN (null)ARKTPLATZ.
133 PRINTSPC(1)" - [206]IRGENDS GIBTS DAS 64'ER !
134 [153][166]1)"ATNLS PEEKOTSCHAFTER WURDEN BIST JETZT
136 PRINTSPC(1)"[211]CHOSCH [211]CHMITT, [211]CHOSCH [211]CHMIDT,
137 [153][166]1)"(null)CHOSCH (null)CHMID, UND (null)CHOSCH (null)CHMIEDT
139 PRINTSPC(1)"ERNANNT !":GOSUB10
140 PRINT"[147]":GOTO300
142 PRINT"[147]":FORI=1TO20:PRINT"[153]**";:NEXT:GOSUB420
143 PRINTSPC(1)"
145 [153][166]1)"STR$AS (null)EBEN DES PEEKRAIN !
148 PRINTSPC(1)"         - 1 - [204]OAD [199]AME
149 [153][166]1)"         - 2 - ATNNLEITUNG (null)ONITOR
150 PRINTSPC(1)"         - 3 - [193]NLEITUNG [196]RUCKER !
153 [153][166]1)"(W) BY (null)STR$(null)STR$ (null)OFT 1992":PD[178]1
154 [161] D$:[139] D$[178]"" [167] 154
155 [139] D$[178]"1" [167] A$[178]"BRAIN P.I LOAD":[137] 200
156 [139] D$[178]"2" [167] A$[178]"ANLEITUNG I":[137] 200
157 [139] D$[178]"3" [167] A$[178]"ANLEITUNG II":[137] 200
158 [137] 154
159 [137] 154
200 [153]"LOAD"
202 [153]"(null)OADING "A$"...STOP"
203 [151] 828,0
205 [153]"LOAD"[199](34);""[170]A$[170]"";[199](34); ",8
206 PRINT"[144] RUN
207 [151] 631,13:[151] 632,13:[151] 198,2:[153]"";:[128]
210 [143] PETER DIEHM
211 [143] WALDSTR. 58
212 [143] 6149 RIMBACH 1
300 [143] NACHLADEN
301 [153]"LOAD":[129]I[178]1[164]20:[153]"*DEF*";:[130]
302 [153][166]0)"VALINEN AUF STR$ISKETTE INSTALLIERTEN (null)PIEL=
304 PRINTSPC(0)"STAND NACHLADEN ODER EINEN [211]PIELSTAND
305 [153][166]0)"AUS EINEM (null)EIL DES ATNDVENTURE NACHLADEN.
307 PRINTSPC(1)"      - 1 - [211]PIELSTAND [199]AME [196]ISK
308 [153][166]1)"      - 2 - (null)PIELSTAND (null)ART ...
309 PRINTSPC(1)"      - 3 - WEITER
310 [153][166]0)"(null)ERWIRREND ! RIGHT$CH WEISS, DARUM NOCHMAL:
311 PRINTSPC(0)"[215]ENN DU DIE 1 DRUECKST WIRD EIN [211]PIEL=
312 [153][166]0)"STAND, DER AUTOMATISCH INSTALLIERT
313 PRINTSPC(0)"WURDE, NACHGELADEN ! [207]DER 2 FUER EINEN
314 [153][166]0)"(null)PIELSTAND DENN DU SELBER UNTER EINEM
315 PRINTSPC(0)"[198]ILE-[206]AMEN ABGESPEICHERT HAST !
317 [153][166]1)"                   (W) BY (null)ETER STR$IEHM
320 GET D$:IF D$="" THEN 320
322 ON VAL(D$) GOTO 350,370,142
325 GOTO 320
350 PRINT"[207].[203].
352 [159]1,8,4,"BRAIN SCORE,S,R"
353 [132]1,F,B,C,O,E,D,N,PD,K,S,L,M,W,Z,A,LA,LB,LC,LD,LE,LF,DA,DB,DC,DD,DM
354 [132]1,GA,GB,GC,CJ,GE
355 [160]1:[141]420
356 [139] PD[178]1 [167] A$[178]"BRAIN P.I LOAD":[137] 200
357 [139] PD[178]2 [167] A$[178]"BRAIN P.II LOAD":[137]200
358 [139] PD[178]3 [167] A$[178]"BRAIN P.II LOAD":[137] 200
359 [139] PD[178]4 [167] A$[178]"BRAIN P.III LOAD":[137] 200
360 [139] PD[178]5 [167] A$[178]"BRAIN P.III LOAD":[137] 200
362 [137] 142
370 [143] PART LOAD
371 [153]"LOAD"
372 [153]"LOAD":[129]I[178]1[164]20:[153]"*CONT*";:[130]
373 [153][166]1)"ATNUS WELCHEN (null)ART (null). LADEN ?
374 PRINTSPC(1)"       6 = [158] [218]URUECK [146] !
375 [133] " CONT -=> WAIT (1-5) ";PS
376 [139] PS[178]1 [167] 390
377 [139] PS[178]2 [176] PS[178]3 [167] 400
378 [139] PS[178]4 [176] PS[178]5 [167] 410
380 [137] 300
390 [133] "  ASCILE WAIT (null)AME ";C$
392 [159]1,8,4,"B1"[170]C$[170]",S,R"
394 [152]1,A,B,F,C,O,E,D,N,S,L,M,DA,DB,DC,DD,S,W,DM,
396 [160]1:PD[178]1:[137] 356
400 [133] "  ASCILE WAIT (null)AME ";C$
402 [159]1,8,4,"B2"[170]C$[170]",S,R"
403 [152]1,A,B,C,D,E,F,O,L,M,W,Z,N,S,GA,GB,CJ,GC
405 [160]1:PD[178]2
406 [139] A[177]14 [167] PD[178]3
407 [137] 356
410 [133] "  ASCILE WAIT (null)AME ";C$
412 [159]1,8,4,"B3"[170]C$[170]",S,R"
413 [152]1,A,B,C,D,E,F,O,L,M,W,Z,N,S,LA,LB,LC,LD,LE,LF
415 [160]1:PD[178]4
417 [139] A[177]15 [167] PD[178]5
418 [137] 356
420 [143] SCORE SAVE
422 R$[178][199](13)
423 [159]2,8,15,"S:BRAIN SCORE":[160]2
425 [159]1,8,4,"BRAIN SCORE,S,W"
426 [152]1,F;R$;B;R$;C;R$;O;R$;E;R$;D;R$;N;R$;PD;R$;K;R$;S;R$;L;R$;M
427 [152]1,W;R$;Z;R$;A;R$;LA;R$;LB;R$;LC;R$;LD;R$;LE;R$;LF;R$;DA;R$;DB
428 [152]1,DC;R$;DD;R$;DM;R$;GA;R$;GB;R$;GC;R$;CJ;R$;GE
429 [160]1:[142]
430 [143] A PDPD PRODUKTION 1992